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I.  INTRODUCTION 


The  Core  Search  program  generates  two  types  of  output.  The 
first  type  is  generated  by  the  search  by  functional  area;  the  second 
is  generated  by  the  search  by  book  section.  The  output  from  the  dif- 
ferent sections  presents  the  information  in  a table  format. 

The  search  by  functional  area  section  scans  the  input  tape  looking 
for  certain  key  words  such  as  PROGRAM  ID,  NUMBER  OF  DIRECT,  ORIGIN, 
etc.  As  each  key  word  is  located,  the  pertinent  information  is  stored  for 
output  and  later  use  by  the  next  section  of  the  program. 

The  search  by  book  section  takes  the  data  located  by  the  first 
section  and  sorts  it  into  the  necessary  order  for  printing. 

A.  Search  by  Functional  Areas 

The  Core  Search  program  scans  an  output  tape  (print  tape) 
from  a build  compilation  for  the  following  items: 

1)  Program  ID, 

2)  Compool  used. 

3)  Program  size. 

4)  Local  storage  used. 

5)  Origin. 

6)  Number  of  direct  statements, 

7)  Total  number  of  statements  (jovial  and  direct). 

8)  Ratio  of  direct  statements  to  total  statements. 

9)  Book  number  containing  the  software  listing. 

These  data  are  then  listed  in  tables  broken  down  into  the  nine  functional 
areas  as  follows: 

1)  Real-time  control. 

2)  Data  collection. 

3)  Surveillance. 

4)  Initilization. 

5)  Display. 

6)  Guidance. 

7)  EDWA  II. 

8)  Communications. 

9)  Identification  friend  or  foe. 
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A group  labelled  test  drivers  is  used  for  all  software  that  is  not 
part  of  the  nine  functional  areas.  After  all  the  functional  areas  are 
tabulated,  a final  summary  table  is  printed  which  contains  the  sum  of 
all  direct  code  statements,  total  statements,  and  ratio  of  direct  to 
total  statements,  and  ratio  of  direct  to  total  statements  for  each 
functional  area.  Appendix  B contains  an  example  of  this  output. 

B.  Search  by  Book 

The  data  used  to  generate  the  tables  of  data  in  the 
search  by  functional  area  section  are  sorted  by  book  number.  The  results 
of  the  sort  yield  a table  which  contains  a list  of  all  the  software 
contained  in  each  book.  This  listing  is  very  useful  when  the  listing  of 
a particular  subroutine  is  desired.  The  user  can  scan  the  contents  of 
each  book  until  it  is  found,  then  go  to  that  book  for  the  desired  soft- 
ware compilation.  Appendix  C contains  an  example  of  this  output. 


II.  INPUT 

The  first  card  read  contains  the  build  number  associated  with 
the  input  tapes  to  be  read.  This  program  requires  one  card  per  input 
tape.  The  card  is  read  by  an  A6,4X,10I5  format.  The  first  six  chara- 
ters  contain  the  magnetic  tape  number.  This  tape  was  created  during  a 
weapon  control  computer  (WCC)  software  build  compilation.  The  remaining 
inputs  on  the  card  are  book  numbers  which  are  contained  on  the  tape. 

Each  book  is  contained  in  one  file  on  the  tape.  A maximum  of  ten  books 
is  allowed.  A program  modification  would  be  required  to  permit  more  than 
ten  books  per  tape.  A blank  or  zero  book  number  signals  the  program  that 
all  books  on  a tape  have  been  processed.  A negative  book  numbers  signals 
the  program  to  skip  one  file.  This  option  allows  the  user  to  skip  files 
that  have  bad  records,  short  records,  parity  errors,  and/or  other  errors. 
Examples  of  the  input  cards  are  as  follows: 

M00258  6666666636666566668  Reads  tape  MOO 258 . 

Contains  books  3,  5 , and  8. 

M00500  666666610666-166610  Skips  second  file 

on  tape  M00500. 


III.  OUTPUT 

The  output  formats  are  contained  in  Appendices  B and  C. 


IV.  GENERAL  FLOWCHART 

The  general  flow  chart  is  as  follows: 
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^ . 1 !>  I i •.  L C. 

L table  4 Table  of  iHt  CO«E  LOCATIONS  AnD  LOCAL  STORAGE 

C RECUIKtL  PT  tACH  U'^IT  LF  A BUILD. 

INHLICIT  I.Tt&ER  I A-Z  ) 
seal  RATIO 

OAIA  v0LSTC/16bIS/,C0f ST/5A5b6/ 
dimension  aSC  (4) ,Pan (10) 

OlMtNSrJU  TEST  (A,7)  ,INF'UT121)  , lOuTtS) 

DIMENSION  INXll?) 

LOUICal  first  /.TRUE./ 

DATA  LlNl.LlNZ.MSFL/OllAlll 1 16 jPb,0 12307 2000000, 077 77 77F00e0e/ 
DATA  IpLA/O0«)t'0M*'Vi0004t1/ 

DATA  lOUT  /B«0/ 

UA7A  huNwl  /0777777777777  / 

DATA  TEST  / BMPRUGRA.bhM  ID  ,6H  , 

1 bMCOMPUOrbHL  ID  ,bH  , 

2 bnPR0GRA,6MM  SIZE,6H  , 

3 bmlOCAL  (bhSTOR,  ,bMbIZE  , 

4 oM0RIGIN,6h  ,6H  , 

b hhUEGlN  , 6hADURES,6hS  , 

6 oHNUMbER,bri  OF  DI,6HnECT  J / 

DATA  ASG  /t>iAS&,T  8,1,  , 1/ 

DATA  ISKP/o/ 

C 

NT48 

ISUMS0 

TOJS0 

100*0 

REAO(b,b0MJ  BUILD 

PVa  REA0CB,4P9,tNUrlPl)TAPEb,bKN 

RRITE  le.iypb)  Tapes,  buN 
W0b  FORMAT CSMX, 46 , 4X, 1015) 

499  format (Ao, 4X1015) 

IFlTAPcS  ,E0.  6M  ) GO  TO  101 

IFCFlPbTj  GO  TO  2 

call  CsFlJ,  l•.FKEE,S  8.  , ',IER) 

C "R  1 Te  Ca  , b'.'.S)  ItR 

nRITE  (p,6i',S) 

2 ASG(a)*TAPEb 
FIRST*. False. 

RRiTECo,30l)  ASG 
call  CSF (4, ASG,  IER) 

ic»e 

IFIIER.EQ.  0J  GO  TU  12 
C pRITElc.BPJ)  IER 

call  consol (43, 'pmEN  tape  drive  BECOMES  AVAILABLE,  RETURN  A', 6, 
« IRET) 

GO  TO  2 
12  CONTINUE 
C 

00  104  1T*1,10 
LE*0 

1BK*dKn  IITI 

IFIIBK  .GT.  o)  GCp  to  3 
IFllBK.EU.b)  GO  TO  100 
call  m0VE(nT,1) 

GO  TO  104 

3 LU*0 
C 


C b n 0 0 1 
CSM002 
LSh003 
CSM004 
CSh00S 
CSH006 
CSm007 
CSMB0B 
CSH0e9 
C5h010 
CSH01 1 
CSM012 
CSH013 
CSH014 
CSM015 
CSM016 
CSM01 7 
CSH01 8 
CSH019 
CSh02e 
CSh021 
CSh022 
CSM023 
CSH024 
CSH025 
CSM026 
CSH027 
CSH028 
CSh029 
CSh030 
CSH031 

CSM032 

CSM033 

CSM034 

CSH035 

CSH036 

CSM037 

CSh038 

CSM039 

CSM040 

CSM041 

CSM042 

CShB43 

CSh044 

CSn04S 

CSH04e 

CSh047 

csM04e 

CSHe49 

C8M0S0 

CSM051 

CSM052 

csHBsa 

CSH0S4 

CSH055 

csness 

CSM037 

csriess 

CSh0S9 
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1 

CONTiNJt 

CSH06e 

«E»OlMT,S^.>,tML>«m  CI^PUTCDd.l.Zl) 

CSH061 

LL®LL»l 

CShObZ 

00  0 i = 1 , 7 

CSH063 

J«1 

CSHe64 

IFlINPUTin  .eo,  TtSTCl,!) .AND.  IMPUT(Z)  ,eO,  TEST(2,I)  .and. 

CSH06S 

* INH0T13)  .EC.  TE5T(3,n)  l>0  TO  e 

CSH066 

9 

CONTINUE 

C5H067 

IF  liNPOT Cn .NE.LINl)  GO  TO  1 

CSH06a 

INP2«AND(InPuT(2) ,«SkL) 

CSHe69 

IF  llNP2.NE.LIN2)  CO  TO  1 

csHe7e 

INX(niFu0l21,6,  INPUT  (2)) 

CSne71 

INX(2)«FlD(3«{,6,1nPUTC2)) 

CSH072 

K»2 

CSn073 

00  790  I*3|4 

CSHe74 

DO  700  J ■3/3P,& 

CSM07S 

HiN'*’! 

CSh076 

INXCA)=FlO(J,6,InPUTCI)) 

CSH077 

7«50 

CONTINUE 

cSHe7S 

DO  6 I>1 , U 

CShB79 

J«l 

csHese 

IF  tlNX  ID .tO. IBLK)  GO  TO  7 

CSHObl 

6 

continue 

csneez 

GO  TO  1 

CSM0B3 

7 

J»J-1 

CSriPBA 

DO  705  1=1, J 

CSH06S 

lOUT (8) =0 

CSH0B6 

IFlI.Nt.  J)IOUTC8)«(lOuTCe)+ClNXCI)-4b))*10 

CSH0B7 

IFII  .EC.  J) I0UT(6) «IOUT (a)  ♦(INX(I)-48) 

CSH068 

7?9 

CONTINUE 

CSH069 

GO  TO  1 

CSh09e 

ts 

lOUT (J J »InPUT (0) 

cshe9i 

IFlJ.Nt.  3)  GO  TO  707 

CShH92 

lOUT (J) »iNPUT  16) 

CSHe93 

lOUT IS) »INPUT  C4) 

CSH094 

7i*7 

CONTINUE 

CSH093 

IFIJ.EC.  7)  «EAO(30,5P3)  lOUTCJ) 

CSh096 

IFllNPuTCn .nE.  TEST(1,6))  go  10  1 

CBrie97 

IF  llbK.Nt.DGO  TO  710 

CSN09B 

lOUT  C7) »10UT  Cb) 

CSHe99 

7lia 

continue 

cshi0e 

call  GXOuPClOUT(l) ,IGP) 

CSH101 

NRlTEdl)  IGP,I0UT,1BK 

CSH102 

DECODE (6, 506, lOUT (33 , NC , ER« =4)  1ST 

cSHie3 

4 

continue 

CSHie4 

ISJN»ISU«*IST 

cSHies 

T0J»TDJ4I0UT  18) 

CSH106 

T00»T0D»10UT 17) 

csHie7 

00  9 J«l,9 

cshibb 

9 

lOUT  (I) 

cSHieo 

GO  TO  1 

CSHl 10 

CShlll 

U 

continue 

CSHU2 

RExlNO  8 

CSH113 

79 

IC»IC4) 

CSN114 

1F18KN11T+1)  .EO.  0 ) GO  Tu  60 

CSM115 

IFILL  .eg.  0)  GO  TO  80 

CSHJ16 

CALL  NOV£(b,IC) 

CSH117 

100 

CONTINUE 

CSHllB 

GO  TO  999 

CSH119 
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0 0 

COnTIwuE 

CS"l/0 

101 

continue 

LSM121 

ENJF'lLt  11 

CS-'122 

CAUL  HnNT  (RlilLO) 

CSH123 

RATIOaFLUAT (TOC) /float (TOJ) 

CSM124 

«PlTE(e,O04)  TOD, TDJ, RATIO 

CSm12S 

TOTSTOaI»UH^vOLSTO*CONST 

CSH126 

«R1TE(6,60»)  ISUM 

CSh127 

»«lTE(6,el2)  VOLSTO, CONST, TCTSTO 

CSHi2e 

600 

FORNATI  21A6) 

CSH12P 

601 

F0NMATiIX,21A6) 

CSH130 

602 

F0RhAT(1'3A6) 

CSH131 

603 

FOPMATC4«X,I10) 

CSH132 

604 

FONHAT (306, 1003) 

LSM133 

605 

F0hhaT(5X,A1) 

CSH134 

1 


sitfo 

ol«l 

oil2 

603 

604 
636 

63d 

600 

610 

611 

612 


FOflHAT  llo) 
F0H«ATllhl/5x, 


7MFPOCR*H,2*,  'uOmPOOL  SIZE  LOC  8T0BA6E  0»ICIM 


' btbiN  address  dip  STaT  JOV  STAT  BOOa  no.  >7) 

F0PMAT(6X,A6,AX,A6,lX,A6,3l.A6,5X,A6,Sl,A6,4X,4lie/) 

FOPMATC  end  of  FIuE  PEaL"EO  I,  16) 

FOHMAT (!X, ' ItP*  '13) 

FONrAAT(20X, •TDTAlS'.2MX,16,4x,16,1X,F10.3//) 

FOHMATI'  TnE  FOLLO"InC  SuhkAKy  IS  FOP  THE  ',43,' 

AN  THE  FOLLOhINC  TAPES'/SX,)0A6} 

FOPHAT (Int, I2ex, IH.  ) 

FOKMAT(10X,'  total  STORAGE  USEU  dT  HCC  SOFTHAPE 
FOHHAT (lx, •012) 

FOHHATdX,  10013) 

FOKMAT(10X,'  VOLATILE  STORAGE  FROM  OR INOI X/K6EN0F 


BulLO  COf-TAiNEO 


•18) 


' 18/ 


LSH133 

CShl36 

CSnl37 

CSH136 

CShlSO 

CSHl4e 

CShl41 

0CShl42 

CSH143 

CSH144 

CSnl49 

CShl46 

CSH147 

CSH14S 


A IPX,' 

PROGRAM 

CONSTANTS  from 

X6-ID  CORE 

MAP 

' 16/ 

CSH14B 

A i:x, ' 

TOTAL  STORX&E  PtOulREO 

' IB) 

csMise 

901 

F0RMAT(lX,2I6,lX,Ab) 

CShiSl 

END 

CSM152 

■FOR. 

IS  GROUP 

CShl33 

subroutine  group  (IX 

,IGP) 

CSM154 

dimension  IbPl (0) , ICP2(71) f 1GP3(B2) 

,IGP4(18), 

I6P3(1 

2),ICP6(37), 

CSHI69 

lIGP7(l).IGP8(2),IGP0(4),IGPl0(ie) 

CSM156 

C 

real  TIME  CONTROL  STStEM  SOFTHARE 

GROUP  1 

C5M157 

C 

CSrilSB 

DATA  IGPl  / 

AMEXEO. 

ahEmCa,  ahcSEC 

, 4HSSRP, 

AHSSRT, 

ahtRIG  , 

CShl69 

A 4HbO03, 

4HG0K7  / 

csHiee 

C 

Data  COLLECTION  SOFTH 

ARE  GROUP  2 

CShl61 

C 

CSni62 

DATA  I&r'2  / 

4H0CAA, 

AHDCOH.  4H0CFB, 

4H0CEN, 

4M0CFP, 

4H0CLC, 

CSH163 

A AhOCHO, 

4HDCHGi 

AhOCMU,  ahocpr, 

4H0CRG, 

AHUCRR. 

4HDCSI , 

CSH164 

A A-iOCSP, 

4MDCTA, 

AmDEDn.  AhOCOY, 

4HDFSC, 

4HOC0E, 

AHORBR, 

cshies 

A 4hDRSF, 

4MDSRM, 

4H0SSM,  4H0TDR, 

4HDSSP, 

4H0T0N, 

AHOSPR, 

cshiee 

A 4H0CMC, 

ahdcrt  . 

ahDLTR,  4H0T0N 

, 4H0CPT, 

4MDCTM, 

AHOCRL. 

CSH167 

A ArtOCT’l, 

4Hoce2f 

4hOCP3>  ahdcba. 

4HOC05, 

4HDC06, 

4HOC07, 

CShl6B 

A 4nOC0F, 

«hDC09« 

4H0Clti  AHOClt, 

4HDC12, 

4N0C13, 

4H0C14, 

CSM169 

A 4HC)C16, 

4H0C16, 

4H0C17,  AnOCIB, 

4H0C19, 

4H0C2e, 

4HD5PP, 

CSHl7e 

A 4HDCAR, 

4HDCAS, 

4HDCFF,  4hDCMF, 

AHOCRO, 

4H0C23, 

4H0S0R, 

CSM171 

A AHHClL. 

4hDSP2> 

4H0CDM,  4hONOR, 

4H0CNT, 

4N0MWL. 

4H0H0R  • 

CSM172 

A AnOCTy, 

4M0C26 

/ 

CSM173 

C 

surveillance 

OPERATI 

ONaL  softnare 

GROUP 

3 

CSHI74 

c 

CSM175 

DATA  1GP3  / 

AhSRAP, 

AmRams,  4HR10P, 

4HR0VL> 

4MRARE, 

4HRA0P, 

CSH176 

A «"AFIl, 

4HALPR. 

AhRFIL.  4HBIDR, 

4HCMUP, 

4HC0RL. 

4MFSEL, 

CSH177 

A ahn^Ta, 

AhOVAL. 

4HQ1NT.  4H0FRM, 

4H0NAP, 

4HNTRR, 

4HSMRH, 

CSHt7B 

A 4"SHRR, 

ahSmOm. 

4HSM0R,  4hSMlR, 

AHS'^AB, 

AHFBMC, 

4MCJVU, 

CSH179 
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CHCJUt^,  ilhKCJv,  4PINCJU,  ^nWVAL,  AHkiEijP,  4MRAC0,  4HME02, 

4n-'tl.'/  4MMt2b,  4nXE33,  4HW4JJ/  4HRA13,  4HH414, 
4HkAl3,  4hKtlo»  4MRt29.  4nSfc32,  4HSE38,  4MTRX1,  4HTRX2, 

4nTi<«i,  4hTR*4,  4hTRlb,  4hTR3l,  4HN48*,  4HNC62,  4HT0b2, 

4kTi;53,  4HT0Xa,  4HTUX6,  4HT0X7,  4H4C65,  4«AC6e,  4HAC68, 

4hAC7^,  <h4C71,  4nCa6A,  4hCb6b,  4HCRa9,  4HC64A,  4HT0tD> 

4HSMFR,  4MSCCN,  4HR0AP,  4MTRAP,  4HNA45,  4MSTRP,  4HTA55» 
4HN48C,  4HN49A,  4HNTRK,  AHECCM, 

4hRP72,  4HP73B  / 

initilization  software  croup  4 

DATA  IGP4  / AMPOKb.  4HK6&Fr  4MF60C,  4HK6EN,  4HK6TC,  4HK6PL  » 

t 4M^^)DF,  4HK5CF,  4HA7EN,  4MK5ND,  4hK7DC,  4HK7TC»  4MK5SM» 
t 4M45SU,  4hF5fcFf  AHRbPL  / 

ocjp  display  AkD  lontrol  softkare  group  5 

DATA  IGPb  / AhhOOF,  4hDISh,  4HOSIT,  4HDTAB,  4HDhES,  4MOTCT, 

> 4MUSPP,  ArlOSPJ  , 4HDM0P,  4HDM0E,  4HOMOC, 

« 4hDASP  / 


DATA  1GP7  / 4hE0R2  / 

COMMuMCAT  IONS  CONTROL  SUFTRARE 

DATA  1GP8  / 4HF2CC,  4MF1CC  / 


CROUP  8 


identification  friend  or  FOE  StlPTRARE  GROUP  9 

DATA  I&P9/  4rlIFpR,  4HIFFR,  4hIFCS,  4MIFRP/ 

ENGAGEnEmT  CONTRUL  software  group  10 

DATA  IGP10  / ahEMIT,  AHEVAL,  AnECELi  aheDCN,  4HEFES,  AHENSI, 

• AhElGU,  ahELNP,  AmETFL,  AHETHC,  AHETPU,  AFIEVLC,  4HTBUA, 

* ARTBBG,  AHTBOK,  AHTPCR,  AHTBOUj  4MTB00  / 
data  hSK/O77  7 7 77  77000P/f  MBLK/D0000ki0B00505/ 

ID*  ANUCIX.RSK) 

ID*  OR(lJ,k9LK) 

IGP*1 

DO  10  1*1,6 

IFllCPl  (I) .EO.IP)  RETURN 

10  continue 

IGP«2 

00  20  1*1,71 

IF  (IGP2(n .Eu.IP)  RETURN 
20  CONTINUE 
ICP  *3 

DO  30  1*1,62 
IF[IGP3Cn.EU.10)  RETURN 
30  continue 
IGP  *4 

DO  40  1*1,18 

IFlIGPACn.EJ.ID)  RETURN 
40  CONTINUE 


csniee 

CShlBl 

cSHia2 

csHie3 

CShl84 

CSH1B9 

CSN1B6 

CSM167 

CSHIBB 

CSH1B9 

cshiee 

CSM191 

CSH192 

CSH193 

CSH194 

cshies 

cshise 

CSH197 

CSHIBB 


c 

GUIDANCE  software 

GROUP  6 

CSM199 

c 

DATA 

1&P6  / 

ahplgc, 

AHLASA, 

AhCIDI, 

AHULNK,  4HSKUP, 

4HDNLK, 

csH2ee 

CSH201 

« 

ArtUSAP, 

AHMFIL, 

ahGIDm, 

ahfuse, 

AHSAPB,  4HHCC0, 

4HPRIS, 

CSH2e2 

• 

ApiCUGC, 

AHCURL  , 

AHCUPY, 

AHDNCL, 

4M0THA,  4HDTMT, 

4HLFIL, 

CSH2e3 

• 

AhSK IL , 

AHGDPS, 

AhTGDB, 

AHTCOI , 

AHTFIL,  4HTJKF, 

AHOBHJ , 

CSH2e4 

* 

AnOoT  J , 

AHPICO, 

AHGD01 , 

AHGO02, 

4HHD03,  4HCD0A, 

AMHTML, 

csH2es 

AmEF  Tm , 

AhERCK, 

ahtgda 

/ 

CSH2B6 

c 

GQmA 

II  software 

GROUP  7 

CSH207 

CSH20B 
CSH2B9 
CSH2ie 
CSH21 1 
CSH212 
CSn2l3 
CSM214 
CSH215 
CSH216 
CSH217 
CSH21S 
CSH219 
CSH22e 
CSH221 
CSH222 
CSH223 
CSH224 
CSH225 
CSH226 
CSH227 
CSH22B 
CSH229 
CSH23e 
CSH231 
CSh232 
CSH233 
CSH234 
CSH235 
CSH230 
CSH237 
CSH238 
CSH239 
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l&f»  *s 

UO  S-)  1«1,12 

IFUSPsCD.EU.IO)  KtTUHN 
S0  CONTINUE 
ISP  *6 

00  6tt  I«1,A7 

IFdSPOlD.EO.lO}  RETURN 
8«  CONTINUE 
ISP  *7 

IFlISP7(n.EO.IO)  RETURN 
ISP  18 
00  Sd  I«l,Z 

IF (IbPe(I) .tU.lD)  RETURN 
ed  CONTINUE 
ISP  *9 
00  9i  1*1.4 

IFIISP9(I)  .£0.  ID}  RETURN 

90  continue 
ISPald 

DO  95  I«l,18 

IFdSPiain.EO,  10}  RETUHN 
95  CONTINUE 
ISPall 

NRlTE(6»ie0)IK 

100  FOHHATCSX, NO  SROUP  NUMBER  FOUND  FOR  *A0) 

RETURN 

END 

■F0R*1S  PRnT 

SUBROUTINE  PRNT(BUILD) 

DIMENSION  SPn(3),HDNAN(3) 

dimension  IXdt),GH0UPI(3,lU 

DATA(GR0uPIdinil«l>3)/  BHREAL  T,6HIHE  C0|6HNTR0L  / 
DATA(SR0uPld,2),I«lr3}/  BmOATA  C , SHOLUECT  , BMION  / 
DATAlGN0uPId,3),I»l,3}/  6MSUflVEl,6HLLANCE,6M  / 

0ATAtSR0UPId,4),l4d3)/  6HIN1  TIL  i 6H1 ZATIO  > SHN  { 
0ATA(GR0UPIdr5),Ial,3)/  ShOClP  0 * 6HISPL  A Y , 6H  CONTR/ 
OATA(GROUPId,6),I*l«3)/  6PGU1DAN , SHCE  lOH  / 

0ATA(SR0uPId>7),I*l>3}7  BhEONA  I,6H1  ,6H  / 

DATA(SROUPld,e)f  Ialr3)/  ShCOMnUN  , BHICAT  10, 6HNS  / 
OATACGKOuPIdrB)  ,1*1,3}/  ShlO  FRl,eHEND  0R,6H  FOE  / 
OATACGROUPI d , 10) , lai,3} /SmENGASE , 6HMENT  C,6H0NTR0L/ 
0ATACGR0UPId,ll),lai,3)/  BbTEST  0, 6HR I VERS,  6H  / 

DATA  hunam/SH  B,SHUIL0  B,6HY  BOOK/ 

ENCODE  (3,99,  mOnAMCD)  BUI  to 
99  F0RMAT(A3) 

END  file  11  ! 

DO  40  NKKal,2 
IFIKKK.EQ.  1)  lENOHl 
IF(KKK,El}.  2)  lENOalS 
DO  30  lal,IENO 

remind  11 

OSUM  ai« 

LINES  a ee 
TSUM  ad 

5 READ  dl,END«2P  )lX 

IF(KKK  .EO,  1 .AND.  IXd)  .Nb.  I)  GO  TO  S 
IFCKKK  .bO.  2 .AND.  IXdl)  .NE.  1)  GO  TO  S 
RATIOad. 

OSalXCB} 

TSaIx(9) 


CSr<240 

CSM241 

CSH242 

CSh243 

CSM244 

CSM24S 

CSM246 

CSH247 

CSn24S 

CSH249 

CSmZSB 

CSM291 

CSH252 

CSH253 

CSH2S4 

CSH2S9 

CSh2S6 

CSM257 

CSh258 

CSM2S9 

CSM260 

CSn261 

CSM262 

CSM263 

C8H264 

CSM269 

CSM266 

CSM267 

CSriZSB 

CSM26B 

CSH270 

CSH27t 

CSH272 

CSM273 

CSM274 

CSh27S 

CSH276 

CSH277 

CSM27S 

CSM270 

cSHzae 

CSH28t 

CSH282 

CSH2a3 

CSM2B4 

CSH2B9 

CSM2B6 

CSH2B7 

CSH2B8 

CSb269 

CSH2M 

CSHZgi 

CSH292 

CSH203 

CSH204 

CSH2B9 

CSH296 

CSM207 

CSM290 

CSH299 


26 


IF  ITo.jT  ) -<*1  IL  . Ob/TS  CSM5B0 

OSuHiOoU"!  * uS  CSn301 

1Su'"«Tsu'*  ♦ IS  CSri302 

LlNtSiLl'vcS  * 1 CSH303 

IF  lulNES.Lt.33  )G0  TO  10  CSH304 

1F(kkk  .to.  n kMiTt  (6, 100HGROUPI  (J,  n > J«1  ( 3)  CSh3e9 

IF  CKKH  .ta,  2)  »»lTe(6,l0k)  F.DNAM  CSH306 

100  FDNHATnHt,40X,34b//SX, ' PROGRAM  COMPOOU  SIZE  DEC  SIZE  OCT  CSH307 

•LOC  STjR  origin  GIH  STAT  tot  STaT  ratio  0/T  book  no,  ')  CSM306 

LInES>0  CSN309 

10  CONTINUE  CShSie 

>-RITb(0.1U)(IK(J),J>2>e)>I>(e),IX(9], RATIO, lx(ll},:xcie)  CSH311 

110  FORMATl9x,Ae,0X,A6,0X,A6,10X,0X,A6,4X,Ae,2I10,F10.3,110,T40,AS}  CSH312 

GO  TO  3 CSh3l3 

20  IFlTSUM  .Lt.  0.0)  GO  TO  30  CSm314 

RATGP^OSUM/'  ISUP  CSM315 

iiRlTE  Co,  121)  OSUM.TSUM  CSM316 

121  F0RMATC/3X,'  total  DIRECT  STATEMENTS  IN  THIS  SECTION  IS  i,FB,0//  CSHSIZ 

• 5X,'  total  ST*TtMtSTS  IN  THIS  SECTION  IS  I F8,0)  C5M318 

nRITE  10,107)  raTGP  CSn319 

120  FORMATl//  OX'ThE  Ratio  op  direct  statements  to  total  STAEMENTS  IStCSH320 

12X,P3.3)  CSH32t 

»RIT£(12)(GR0UPICJ,I),J»1,3),DSUM,TSUM,RATCP  CSH322 

30  CONTINUE  C8m323 

IFIKKK.E').  2)  RETURN  CSM324 

ENU  PILE  10  CSn325 

remind  12  CSH326 

MRlTtCb,l30)  Build  CSm327 

130  P0kmaT(1hi,34X, 'GROUP  SUMMARY  TABLE  POR  ',A3,'  BUILO  '//  CSM328 

1 20X, 'GROUP  name ', Ibx, 'DIR  STAT  TOT  STAT  RATIO  0/T'/)  CSH329 

33  CONTINUE  CSn33B 

READC12,tNL)»40)GPN,DSUM,TSUM,RATGP  CSM331 

mRITECO, 140)1,  PN,  OSUM,  T sum,  RATGP  CSHS32 

GO  TO  33  CSH333 

140  format  120X,3A6,3X,2P10.0,P10. 3/)  CSh334 

40  continue  CSH339 

return  CSh336 

ENO  CSn337 
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Appendix  C.  SEARCH  BY  BOOK  OUTPUT 
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